home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / nrpas13.arc / PIKSR2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-05-01  |  544b  |  24 lines

  1. PROCEDURE piksr2(n: integer; VAR arr,brr: glsarray);
  2. (* Programs using routine PIKSR2 must define the type
  3. TYPE
  4.    glsarray = ARRAY [1..np] OF real;
  5. in the main routine, with np >= n.   *)
  6. LABEL 10;
  7. VAR
  8.    j,i: integer;
  9.    b,a: real;
  10. BEGIN
  11.    FOR j := 2 TO n DO BEGIN
  12.       a := arr[j];
  13.       b := brr[j];
  14.       FOR i := j-1 DOWNTO 1 DO BEGIN
  15.          IF (arr[i] <= a) THEN GOTO 10;
  16.          arr[i+1] := arr[i];
  17.          brr[i+1] := brr[i]
  18.       END;
  19.       i := 0;
  20. 10:      arr[i+1] := a;
  21.       brr[i+1] := b
  22.    END
  23. END;
  24.